home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s2.arc / KDEBUG.MOD < prev    next >
Text File  |  1987-07-17  |  1KB  |  47 lines
  1. PROCEDURE Kermit_Debug_Write_Boolean( S : AnyStr; B: BOOLEAN );
  2.  
  3. BEGIN (* Kermit_Debug_Write_Boolean *)
  4.  
  5.    IF B THEN
  6.       Write_Log( 'Kermit debug: ' + S + ' = ON', FALSE, FALSE )
  7.    ELSE
  8.       Write_Log( 'Kermit debug: ' + S + ' = OFF', FALSE, FALSE );
  9.  
  10. END   (* Kermit_Debug_Write_Boolean *);
  11.  
  12. PROCEDURE Kermit_Debug_Write_String( S : AnyStr; S2 : AnyStr );
  13.  
  14. BEGIN (* Kermit_Debug_Write_String *)
  15.  
  16.    Write_Log( 'Kermit debug: ' + S + ' = <' +  S2  + '>', FALSE, FALSE );
  17.  
  18. END   (* Kermit_Debug_Write_String *);
  19.  
  20. PROCEDURE Kermit_Debug_Write_Char( S : AnyStr; Ch: CHAR );
  21.  
  22. BEGIN (* Kermit_Debug_Write_Char *)
  23.  
  24.    Write_Log( 'Kermit debug: ' + S + ' = <' + Ch  + '>', FALSE, FALSE );
  25.  
  26. END   (* Kermit_Debug_Write_Char *);
  27.  
  28. PROCEDURE Kermit_Debug_Write_Integer( S : AnyStr; B: INTEGER );
  29.  
  30. BEGIN (* Kermit_Debug_Write_Integer *)
  31.  
  32.    Write_Log( 'Kermit debug: ' + S + ' = ' + IToS( B ), FALSE, FALSE );
  33.  
  34. END   (* Kermit_Debug_Write_Integer *);
  35.  
  36. FUNCTION String_It( I: INTEGER ) : AnyStr;
  37.  
  38. VAR
  39.    S: STRING[10];
  40.  
  41. BEGIN (* String_It *)
  42.  
  43.    STR( I , S );
  44.  
  45.    String_It := S;
  46.  
  47. END   (* String_It *);